home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / PANSI.EX2 < prev    next >
Text File  |  1992-08-09  |  505b  |  28 lines
  1. 'A VERY simple example of a terminal program with ANSI emulation.
  2. 'Uses PANSI.BAS.
  3. DEFINT A-Z
  4. '$INCLUDE: 'pansi.bi'
  5.  
  6. SCREEN 0
  7. WIDTH 80, 25
  8. LOCATE , , 1
  9.  
  10. Init
  11. SetWindow 1, 1, 80, 25
  12. ClearScreen
  13. CursorControl 1
  14. SetCursor
  15.  
  16. '          Change this stuff for your modem.
  17.  
  18. OPEN "com1:1200,n,8,1,rb8192,tb512" FOR RANDOM AS #1
  19. DO
  20.     A$ = INKEY$
  21.     IF A$ <> "" THEN PRINT #1, A$;
  22.     IF NOT EOF(1) THEN
  23.         PrintAnsi ASC(INPUT$(1, 1))
  24.     END IF
  25. LOOP UNTIL A$ = "~"
  26. CLOSE
  27. END
  28.